home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / misc / avmNfax1_33.lha / AVMSuite / source / processmailbox.avmsrc < prev    next >
Text File  |  1994-06-24  |  12KB  |  570 lines
  1. startrecord=true
  2. label=
  3. nodetype=14
  4. comment=Function which has one argument, the mailbox
  5. nextactiontype=3
  6. nextactionaction=
  7. endrecord=true
  8. startrecord=true
  9. label=
  10. nodetype=8
  11. line1=procedure expose acidname acidnumber mailbox faxscript datascript
  12. line2=parse arg mailbox .
  13. line3=call loadMailBox(mailbox)
  14. line4=calledSysop = 0
  15. line5=pagedSysop = 0
  16. line6=
  17. line7=
  18. line8=
  19. line9=
  20. line10=
  21. nextactiontype=3
  22. nextactionaction=
  23. endrecord=true
  24. startrecord=true
  25. label=
  26. nodetype=8
  27. line1=if mailbox.autoalertb = 1 & mailbox.autoalertscript ~= '' then
  28. line2=  address rexx 'alertsysop' mailbox
  29. line3=
  30. line4=
  31. line5=
  32. line6=
  33. line7=
  34. line8=
  35. line9=
  36. line10=
  37. nextactiontype=3
  38. nextactionaction=
  39. endrecord=true
  40. startrecord=true
  41. label=
  42. nodetype=1
  43. filename=voiceFile(mailbox,'Personal')
  44. comment=
  45. keyactiontype=0
  46. keyactionaction=aakeypressed
  47. faxactiontype=0
  48. faxactionaction=stdfax
  49. dataactiontype=0
  50. dataactionaction=stddata
  51. busyactiontype=0
  52. busyactionaction=stdbusy
  53. abortactiontype=0
  54. abortactionaction=stdabort
  55. erroractiontype=3
  56. erroractionaction=
  57. nextactiontype=3
  58. nextactionaction=
  59. endrecord=true
  60. startrecord=true
  61. label=aaAnnounce
  62. nodetype=8
  63. line1=if mailbox.autoforwardannounce = 1 & mailbox.autoforward ~= '' then call announceForwardNumber
  64. line2=
  65. line3=
  66. line4=
  67. line5=
  68. line6=
  69. line7=
  70. line8=
  71. line9=
  72. line10=
  73. nextactiontype=3
  74. nextactionaction=
  75. endrecord=true
  76. startrecord=true
  77. label=aanopersonal
  78. nodetype=1
  79. filename='avm:voices/MailboxGreeting'
  80. comment=Press 2 to send a fax now.  Or, wait for the beep, leave your message, then press 1 when you're done.
  81. keyactiontype=0
  82. keyactionaction=aakeypressed
  83. faxactiontype=0
  84. faxactionaction=stdfax
  85. dataactiontype=0
  86. dataactionaction=stddata
  87. busyactiontype=0
  88. busyactionaction=stdbusy
  89. abortactiontype=0
  90. abortactionaction=stdabort
  91. erroractiontype=0
  92. erroractionaction=stderror
  93. nextactiontype=3
  94. nextactionaction=
  95. endrecord=true
  96. startrecord=true
  97. label=
  98. nodetype=14
  99. comment=Init log file stuff
  100. nextactiontype=3
  101. nextactionaction=
  102. endrecord=true
  103. startrecord=true
  104. label=aaskipinstructions
  105. nodetype=8
  106. line1=handle = makeUniqueFile()
  107. line2=call initLogEntry()
  108. line3=call time('r')
  109. line4=
  110. line5=
  111. line6=
  112. line7=
  113. line8=
  114. line9=
  115. line10=
  116. nextactiontype=3
  117. nextactionaction=
  118. endrecord=true
  119. startrecord=true
  120. label=
  121. nodetype=8
  122. line1=userBeep = getclip('AVMUserBeep')
  123. line2=if userBeep = 'YES' then do
  124. line3=
  125. line4=
  126. line5=
  127. line6=
  128. line7=
  129. line8=
  130. line9=
  131. line10=
  132. nextactiontype=3
  133. nextactionaction=
  134. endrecord=true
  135. startrecord=true
  136. label=
  137. nodetype=1
  138. filename='avm:voices/UserBeep'
  139. comment=beep
  140. keyactiontype=0
  141. keyactionaction=aakeypressed
  142. faxactiontype=0
  143. faxactionaction=stdfax
  144. dataactiontype=0
  145. dataactionaction=stddata
  146. busyactiontype=0
  147. busyactionaction=stdbusy
  148. abortactiontype=0
  149. abortactionaction=stdabort
  150. erroractiontype=0
  151. erroractionaction=stderror
  152. nextactiontype=3
  153. nextactionaction=
  154. endrecord=true
  155. startrecord=true
  156. label=
  157. nodetype=8
  158. line1=end; else do
  159. line2=
  160. line3=
  161. line4=
  162. line5=
  163. line6=
  164. line7=
  165. line8=
  166. line9=
  167. line10=
  168. nextactiontype=3
  169. nextactionaction=
  170. endrecord=true
  171. startrecord=true
  172. label=
  173. nodetype=2
  174. frequency1=3000
  175. frequency2=0
  176. duration=4
  177. keyactiontype=3
  178. keyactionaction=aakeypressed
  179. faxactiontype=0
  180. faxactionaction=stdfax
  181. dataactiontype=0
  182. dataactionaction=stddata
  183. busyactiontype=0
  184. busyactionaction=stdbusy
  185. abortactiontype=0
  186. abortactionaction=stdabort
  187. erroractiontype=0
  188. erroractionaction=stderror
  189. nextactiontype=3
  190. nextactionaction=
  191. endrecord=true
  192. startrecord=true
  193. label=
  194. nodetype=8
  195. line1=end
  196. line2=
  197. line3=
  198. line4=
  199. line5=
  200. line6=
  201. line7=
  202. line8=
  203. line9=
  204. line10=
  205. nextactiontype=3
  206. nextactionaction=
  207. endrecord=true
  208. startrecord=true
  209. label=
  210. nodetype=0
  211. filename=voiceFile(mailbox,handle)
  212. recordinglength=0
  213. silenceinterval=-1
  214. silencethreshold=-1
  215. keyactiontype=2
  216. keyactionaction=call aafixlog; signal aakeypressedafterrecord
  217. quietactiontype=2
  218. quietactionaction=call aafixlog; signal stdabort
  219. silenceactiontype=2
  220. silenceactionaction=call aafixlog; if upper(getclip('AVMDataAfterSilence')) = 'YES' then signal stddata; else signal stdabort
  221. faxactiontype=2
  222. faxactionaction=call aafixlog; signal stdfax
  223. dataactiontype=2
  224. dataactionaction=call aafixlog; signal stddata
  225. busyactiontype=2
  226. busyactionaction=call aafixlog; signal stdbusy
  227. timedoutactiontype=2
  228. timedoutactionaction=call aafixlog; signal aakeypressedafterrecord
  229. abortactiontype=2
  230. abortactionaction=call aafixlog; signal stdabort
  231. erroractiontype=2
  232. erroractionaction=call aafixlog; signal stderror
  233. nextactiontype=3
  234. nextactionaction=
  235. endrecord=true
  236. startrecord=true
  237. label=
  238. nodetype=14
  239. comment=Shouldn't get here
  240. nextactiontype=0
  241. nextactionaction=stderror
  242. endrecord=true
  243. startrecord=true
  244. label=aafixlog
  245. nodetype=14
  246. comment=This writes out the log file
  247. nextactiontype=3
  248. nextactionaction=
  249. endrecord=true
  250. startrecord=true
  251. label=
  252. nodetype=8
  253. line1=if mailbox.autoforwardb = 1 & mailbox.autoforwardondemand = "" & calledSysop = 0 then do
  254. line2=
  255. line3=  call aaCallSysop
  256. line4=end
  257. line5=if mailbox.autopageb = 1 & mailbox.autopageondemand = "" & pagedSysop = 0 then do
  258. line6=
  259. line7=  call aaPageSysop
  260. line8=end
  261. line9=
  262. line10=
  263. nextactiontype=3
  264. nextactionaction=
  265. endrecord=true
  266. startrecord=true
  267. label=
  268. nodetype=8
  269. line1=log.filename = handle
  270. line2=log.length = trunc(time('e'))
  271. line3=log.type = 'voice'
  272. line4=call saveLogEntry(mailbox, handle)
  273. line5=preConv = upper(getclip('AVMPreConvert'))
  274. line6=if preConv = 'YES' then
  275. line7=  address command 'run >nil: <nil: avm:adpcm2iff' ,
  276. line8=  voiceFile(mailbox, handle) voiceFile(mailbox, handle) || 'i' '-nogui -1second'
  277. line9=
  278. line10=
  279. nextactiontype=2
  280. nextactionaction=return
  281. endrecord=true
  282. startrecord=true
  283. label=aakeypressedafterrecord
  284. nodetype=12
  285. nextactiontype=3
  286. nextactionaction=
  287. endrecord=true
  288. startrecord=true
  289. label=processmailboxmenu
  290. nodetype=3
  291. filename='avm:voices/MailboxCaller'
  292. comment=Press 1 to leave another message, 2 to send a fax, 3 to electronically leave your telephone number, 4 to wake the sysop up, 6 to forward this message to the mailbox owner, 7 to call the mailbox owner's pager, or the * sign to end your call.  [5=data, 9=maintenance, #=previous menu, 0=repeat menu]
  293. retries=3
  294. zeroactiontype=0
  295. zeroactionaction=processmailboxmenu
  296. oneactiontype=0
  297. oneactionaction=aaAnnounce
  298. twoactiontype=0
  299. twoactionaction=stdfaxinstruct
  300. threeactiontype=2
  301. threeactionaction=call aaleavenumber()
  302. fouractiontype=2
  303. fouractionaction=good = getpassword(mailbox.autoalertondemand); if good then address rexx 'alertsysop' mailbox
  304. fiveactiontype=0
  305. fiveactionaction=stddatainstruct
  306. sixactiontype=2
  307. sixactionaction=good = getpassword(mailbox.autoforwardondemand); if good & calledSysop = 0 then call aaCallSysop()
  308. sevenactiontype=2
  309. sevenactionaction=good = getpassword(mailbox.autopageondemand); if good & pagedSysop = 0 then call aaPageSysop()
  310. eightactiontype=3
  311. eightactionaction=
  312. nineactiontype=2
  313. nineactionaction=call aamaintenancemode(mailbox)
  314. poundactiontype=2
  315. poundactionaction=return
  316. staractiontype=0
  317. staractionaction=answervoiceDone
  318. faxactiontype=0
  319. faxactionaction=stdfax
  320. dataactiontype=0
  321. dataactionaction=stddata
  322. busyactiontype=0
  323. busyactionaction=stdbusy
  324. timedoutactiontype=0
  325. timedoutactionaction=answervoiceDone
  326. abortactiontype=0
  327. abortactionaction=stdabort
  328. erroractiontype=0
  329. erroractionaction=stderror
  330. nextactiontype=0
  331. nextactionaction=processmailboxmenu
  332. endrecord=true
  333. startrecord=true
  334. label=
  335. nodetype=14
  336. comment=Shouldn't get here
  337. nextactiontype=0
  338. nextactionaction=stderror
  339. endrecord=true
  340. startrecord=true
  341. label=aaleavenumber
  342. nodetype=8
  343. line1=number = getNumber()
  344. line2=
  345. line3=
  346. line4=
  347. line5=
  348. line6=
  349. line7=
  350. line8=
  351. line9=
  352. line10=
  353. nextactiontype=3
  354. nextactionaction=
  355. endrecord=true
  356. startrecord=true
  357. label=
  358. nodetype=8
  359. line1=log.returnnumber = number
  360. line2=call updateLogEntry(mailbox, handle)
  361. line3=
  362. line4=
  363. line5=
  364. line6=
  365. line7=
  366. line8=
  367. line9=
  368. line10=
  369. nextactiontype=2
  370. nextactionaction=return
  371. endrecord=true
  372. startrecord=true
  373. label=aakeypressed
  374. nodetype=3
  375. filename='avm:voices/SkipFaxMaintenance'
  376. comment=Press 1 to skip the instructions, 2 to send a fax, 9 to enter maintenance mode [5=data, *=hangup, #=previous menu, 0=repeat menu]
  377. retries=3
  378. zeroactiontype=0
  379. zeroactionaction=aakeypressed
  380. oneactiontype=0
  381. oneactionaction=aaskipinstructions
  382. twoactiontype=0
  383. twoactionaction=stdfaxinstruct
  384. threeactiontype=0
  385. threeactionaction=aaAnnounce
  386. fouractiontype=3
  387. fouractionaction=
  388. fiveactiontype=0
  389. fiveactionaction=stddatainstruct
  390. sixactiontype=3
  391. sixactionaction=
  392. sevenactiontype=3
  393. sevenactionaction=
  394. eightactiontype=3
  395. eightactionaction=
  396. nineactiontype=2
  397. nineactionaction=call aamaintenancemode(mailbox)
  398. poundactiontype=2
  399. poundactionaction=return
  400. staractiontype=0
  401. staractionaction=stdabort
  402. faxactiontype=0
  403. faxactionaction=stdfax
  404. dataactiontype=0
  405. dataactionaction=stddata
  406. busyactiontype=0
  407. busyactionaction=stdbusy
  408. timedoutactiontype=0
  409. timedoutactionaction=answervoiceDone
  410. abortactiontype=0
  411. abortactionaction=stdabort
  412. erroractiontype=0
  413. erroractionaction=stderror
  414. nextactiontype=2
  415. nextactionaction=return
  416. endrecord=true
  417. startrecord=true
  418. label=
  419. nodetype=7
  420. filename=avm:rexx/maintenancemode.avm
  421. nextactiontype=2
  422. nextactionaction=return
  423. endrecord=true
  424. startrecord=true
  425. label=aaCallSysop
  426. nodetype=8
  427. line1=procedure expose mailbox. mailbox calledSysop
  428. line2=if mailbox.autoforwardscript ~= "" & mailbox.autoforward ~= "" then do
  429. line3=     calledSysop = 1
  430. line4=     handle = makeUniqueFile()
  431. line5=     call initLogEntry(); log.origmailbox = mailbox
  432. line6=     log.filename = 'avm:voices/autoforward'; log.type = 'voice'
  433. line7=     log.returnsendfunc = mailbox.autoforwardscript; log.returninterval = 5
  434. line8=     log.returnretry = 3; log.returnnumber = mailbox.autoforward; log.altFileName = voiceFile(mailbox, 'Introduction')
  435. line9=     call saveLogEntry('Outgoing', handle)
  436. line10=
  437. nextactiontype=3
  438. nextactionaction=
  439. endrecord=true
  440. startrecord=true
  441. label=
  442. nodetype=1
  443. filename='avm:voices/BeingForwarded'
  444. comment=This message is being forwarded to the mailbox owner at...
  445. keyactiontype=3
  446. keyactionaction=
  447. faxactiontype=0
  448. faxactionaction=stdfax
  449. dataactiontype=0
  450. dataactionaction=stddata
  451. busyactiontype=0
  452. busyactionaction=stdbusy
  453. abortactiontype=0
  454. abortactionaction=stdabort
  455. erroractiontype=0
  456. erroractionaction=stderror
  457. nextactiontype=3
  458. nextactionaction=
  459. endrecord=true
  460. startrecord=true
  461. label=
  462. nodetype=8
  463. line1=    call playNumber(mailbox.autoforward)
  464. line2=
  465. line3=
  466. line4=
  467. line5=
  468. line6=
  469. line7=
  470. line8=
  471. line9=
  472. line10=
  473. nextactiontype=3
  474. nextactionaction=
  475. endrecord=true
  476. startrecord=true
  477. label=
  478. nodetype=12
  479. nextactiontype=3
  480. nextactionaction=
  481. endrecord=true
  482. startrecord=true
  483. label=
  484. nodetype=8
  485. line1=end
  486. line2=
  487. line3=
  488. line4=
  489. line5=
  490. line6=
  491. line7=
  492. line8=
  493. line9=
  494. line10=
  495. nextactiontype=2
  496. nextactionaction=return
  497. endrecord=true
  498. startrecord=true
  499. label=announceForwardNumber
  500. nodetype=1
  501. filename='avm:voices/AnnounceForward'
  502. comment=The following forwarding number was left by the mailbox owner...
  503. keyactiontype=3
  504. keyactionaction=
  505. faxactiontype=0
  506. faxactionaction=stdfax
  507. dataactiontype=0
  508. dataactionaction=stddata
  509. busyactiontype=0
  510. busyactionaction=stdbusy
  511. abortactiontype=0
  512. abortactionaction=stdabort
  513. erroractiontype=0
  514. erroractionaction=stderror
  515. nextactiontype=3
  516. nextactionaction=
  517. endrecord=true
  518. startrecord=true
  519. label=
  520. nodetype=8
  521. line1=call playNumber(mailbox.autoforward)
  522. line2=
  523. line3=
  524. line4=
  525. line5=
  526. line6=
  527. line7=
  528. line8=
  529. line9=
  530. line10=
  531. nextactiontype=3
  532. nextactionaction=
  533. endrecord=true
  534. startrecord=true
  535. label=
  536. nodetype=1
  537. filename='avm:voices/AnnounceAgain'
  538. comment=Press 3 to repeat the telephone number.
  539. keyactiontype=3
  540. keyactionaction=
  541. faxactiontype=0
  542. faxactionaction=stdfax
  543. dataactiontype=0
  544. dataactionaction=stddata
  545. busyactiontype=0
  546. busyactionaction=stdbusy
  547. abortactiontype=0
  548. abortactionaction=stdabort
  549. erroractiontype=0
  550. erroractionaction=stderror
  551. nextactiontype=2
  552. nextactionaction=return
  553. endrecord=true
  554. startrecord=true
  555. label=aaPageSysop
  556. nodetype=8
  557. line1=procedure expose mailbox. mailbox pagedSysop
  558. line2=if mailbox.autopagescript ~= "" & mailbox.autopage ~= "" then do
  559. line3=     pagedSysop = 1
  560. line4=     handle = makeUniqueFile()
  561. line5=     call initLogEntry(); log.origmailbox = mailbox
  562. line6=     log.filename = 'avm:voices/autoforward'; log.type = 'voice'
  563. line7=     log.returnsendfunc = mailbox.autopagescript; log.returninterval = 5
  564. line8=     log.returnretry = 3; log.returnnumber = mailbox.autopage; log.altFileName = voiceFile(mailbox, 'Introduction')
  565. line9=     call saveLogEntry('Outgoing', handle)
  566. line10=end
  567. nextactiontype=2
  568. nextactionaction=return
  569. endrecord=true
  570.